home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / game / actio / Wreckage_src.lha / Source / Assembly / Backup / asm_rot_A1.asm < prev    next >
Assembly Source File  |  1998-06-30  |  744b  |  35 lines
  1. _rot_loop1:
  2.  
  3.       MOVE.b    (a2)+    ,d1
  4.  
  5.       BEQ     _rot_loop1a
  6.  
  7.       MOVE.l     (a0)    ,d1         ;d1=ox(n)
  8.       CLR.w     d1
  9.       SWAP     d1
  10.  
  11.       MOVE.w     d1    ,d2              ;d2=x
  12.       MULS.w     d6    ,d1              ;x*csa
  13.  
  14.       MULS.w     d7    ,d2              ;x*sna
  15.  
  16.  
  17.       MOVE.l     (a1)    ,d3            ;oy(n)
  18.       CLR.w     d3
  19.       SWAP     d3
  20.  
  21.      MOVE.w     d3    ,d4              ;y
  22.       MULS.w     d7    ,d3              ;y*sna
  23.  
  24.       SUB.l     d3    ,d1               ;x*csa-y*sna
  25.  
  26.       MULS.w     d6    ,d4              ;y*csa
  27.  
  28.       ADD.l     d2    ,d4               ;y*csa+x*sna
  29.  
  30. _rot_loop1a:
  31.       MOVE.l     d4    ,(a1)+           ;y(n)=y*csa+x*sna
  32.       MOVE.l     d1    ,(a0)+           ;x(n)=x*csa-y*sna
  33.      SUBQ.l     #1    ,d0    ;n=n-1
  34.       BGE     _rot_loop1
  35.